home *** CD-ROM | disk | FTP | other *** search
/ QuickTime VR Showcase / QuickTime VR Showcase.iso / media / resource.Dxr / 00004.ls < prev    next >
Encoding:
Text File  |  1996-12-29  |  1.1 KB  |  16 lines
  1. on exitFrame
  2.   global gObjCaptain, gPanoObject, gDemoBtn
  3.   markerChange(gObjCaptain)
  4.   set the regPoint of member "demo btn" to point(-1000, -1000)
  5.   set the pNavMode of gPanoObject to 0
  6.   set graphisoftBtn to new(script "display info button", 25, "graphisoft btn", "graphisoft", "resource.dir")
  7.   set specularBtn to new(script "display info button", 26, "specular btn", "specular", "resource.dir")
  8.   set strataBtn to new(script "display info button", 27, "strata btn", "strata", "resource.dir")
  9.   set vidiBtn to new(script "display info button", 28, "vidi btn", "vidi", "resource.dir")
  10.   set appleBtn to new(script "display info button", 29, "apple btn", "apple", "resource.dir")
  11.   set macromediaBtn to new(script "rollover button", 30, 0, "macromedia btn", "macromedia", "resource.dir")
  12.   set mFactoryBtn to new(script "display info button", 31, "mFactory btn", "mFactory", "resource.dir")
  13.   set clipVRBtn to new(script "display info button", 32, "clipVR btn", "clipVR", "resource.dir")
  14.   set authoringBtn to new(script "display info button", 33, "authoring btn", "authoring", "resource.dir")
  15. end
  16.